home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +mixed graphics (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.5 KB  |  42 lines
  1. 1 rem * mixed-graphics text program *
  2. 2 poke792,193
  3. 5 fori=0to7:bi(i)=2^i:next:poke53280,12
  4. 10 fori=49152to49278:reada:pokei,a:next:sys49152
  5. 20 print"[147][142]":fori=0to8:print:next
  6. 30 print"the top area is hi-res bit map mode."
  7. 40 print:print"the middle area is ordinary text."
  8. 50 print:print"the bottom area is multi-color bit map."
  9. 60 forg=1384to1423:pokeg,0:next
  10. 70 forg=1024to1383:pokeg,114:pokeg+640,234:next
  11. 80 a$="":fori=1to128:a$=a$+"@":next:fori=32to63step2
  12. 90 poke648,i:print"[153]"a$a$a$a$:next:poke648,4:poke792,71
  13. 100 base=8192:bk=49267
  14. 110 h=40:c=0:forx=0to319:gosub150:next
  15. 120 h=160:c=0:forx=0to319step2:gosub150:next:c=40
  16. 125 forx=1to319step2:gosub150:next
  17. 130 c=80:forx=0to319step2:w=0:gosub150:w=1:gosub150:next
  18. 140 goto140
  19. 150 y=int(h+20*sin(x/10+c)):by=base+40*(yand248)+(yand7)+(xand504)
  20. 151 pokeby,peek(by)or(bi(abs(7-(xand7)-w))):return
  21. 152 data120,169,127,141,13,220,169,1,141,26,208,169
  22. 164 data3,133,251,173,112,192,141,18,208,169,24,141
  23. 176 data17,208,173,20,3,141,110,192,173,21,3,141
  24. 188 data111,192,169,50,141,20,3,169,192,141,21,3
  25. 200 data88,96,173,25,208,141,25,208,41,1,240,43
  26. 212 data198,251,16,4,169,2,133,251,166,251,189,115
  27. 224 data192,141,33,208,189,118
  28. 230 data192,141,17,208,189,121
  29. 236 data192,141,22,208,189,124
  30. 242 data192,141,24,208,189,112
  31. 248 data192,141,18,208,189,240
  32. 254 data6,104,168,104,170,104,64,76,49,234
  33. 264 data49,171,129 :rem *scan lines*
  34. 267 data0,0,0 :rem *background colors*
  35. 270 data59,27,59 :rem *53265 registers*
  36. 273 data24,8,8 :rem *53270 registers*
  37. 276 data24,20,24 :rem    *memory*                              *controlrun*
  38. 290 rem
  39. 292 rem
  40. 300 rem  on line numbers 152-276,           rem  the data is for memory
  41. 310 rem  locations 49152 to 49276.
  42.